object frmPropExplorerExpert: TfrmPropExplorerExpert Left = 194 Top = 80 ActiveControl = cmbValue BorderStyle = bsDialog Caption = 'Property Explorer' ClientHeight = 320 ClientWidth = 556 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PopupMenu = popAbout Position = poScreenCenter ShowHint = True PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 29 Top = 100 Width = 27 Height = 13 Alignment = taRightJustify Caption = '&Value' FocusControl = cmbValue end object Label2: TLabel Left = 28 Top = 12 Width = 28 Height = 13 Alignment = taRightJustify Caption = '&Forms' FocusControl = lbxForms end object Label3: TLabel Left = 7 Top = 280 Width = 522 Height = 17 AutoSize = False Caption = 'Warning: the forms must be saved before the locator can find all' + ' the properties with this value.' WordWrap = True end object cmbValue: TComboBox Left = 64 Top = 96 Width = 257 Height = 21 ItemHeight = 13 TabOrder = 3 OnChange = EnableLocate end object btnLocate: TBitBtn Left = 459 Top = 4 Width = 89 Height = 25 Hint = 'Locate the entered value' Caption = '&Locate' Default = True Enabled = False TabOrder = 7 OnClick = btnLocateClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333FF33333333333330003FF3FFFFF3333777003000003333 300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333 330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000 333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000 339977FF777777773377000BFB03333333337773FF733333333F333000333333 3300333777333333337733333333333333003333333333333377333333333333 333333333333333333FF33333333333330003333333333333777333333333333 3000333333333333377733333333333333333333333333333333} NumGlyphs = 2 end object btnCancel: TBitBtn Left = 459 Top = 32 Width = 89 Height = 25 Hint = 'Close the explorer' TabOrder = 8 Kind = bkClose end object stgResults: TStringGrid Left = 8 Top = 148 Width = 540 Height = 127 TabStop = False ColCount = 4 DefaultColWidth = 129 DefaultRowHeight = 20 FixedCols = 0 RowCount = 7 FixedRows = 0 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect, goThumbTracking] TabOrder = 10 OnDblClick = stgResultsDblClick OnEnter = stgResultsEnter OnExit = stgResultsExit end object hdrResults: THeader Left = 8 Top = 128 Width = 523 Height = 21 Sections.Sections = ( #0'130'#0'Form' #0'130'#0'Object' #0'130'#0'Property' #0'35'#0'Value') TabOrder = 9 TabStop = True OnSizing = hdrResultsSizing end object lbxForms: TListBox Left = 64 Top = 8 Width = 257 Height = 81 ItemHeight = 13 MultiSelect = True Sorted = True TabOrder = 0 OnClick = lbxFormsClick end object cbxMatchCase: TCheckBox Left = 332 Top = 82 Width = 113 Height = 17 Caption = ' Case &sensitive' TabOrder = 5 end object cbxWholeWords: TCheckBox Left = 332 Top = 102 Width = 113 Height = 17 Caption = ' &Whole words only' TabOrder = 6 end object btnAll: TButton Left = 12 Top = 36 Width = 45 Height = 21 Hint = 'Select all forms' Caption = '&All' TabOrder = 1 OnClick = btnAllClick end object btnNone: TButton Left = 12 Top = 64 Width = 45 Height = 21 Hint = 'Select no forms' Caption = '&None' TabOrder = 2 OnClick = btnNoneClick end object btnShow: TBitBtn Left = 459 Top = 96 Width = 89 Height = 25 Hint = 'Open form and select object' Cancel = True Caption = 'S&how' Enabled = False TabOrder = 12 OnClick = btnShowClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF 07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF 0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} NumGlyphs = 2 end object pnlStatus: TPanel Left = 0 Top = 299 Width = 556 Height = 21 Align = alBottom Alignment = taLeftJustify BevelOuter = bvLowered TabOrder = 13 end object ragSearchIn: TRadioGroup Left = 332 Top = 6 Width = 105 Height = 71 Caption = 'Search in' ItemIndex = 2 Items.Strings = ( 'Na&me' 'Val&ue' '&Both') TabOrder = 4 end object btnSave: TBitBtn Left = 459 Top = 64 Width = 89 Height = 25 Hint = 'Save the results to a file' Caption = 'Sav&e' Enabled = False TabOrder = 11 OnClick = btnSaveClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888 00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888 00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000 00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF 0003737FFFFFFFFF7F7330099999999900333777777777777733} NumGlyphs = 2 end object popAbout: TPopupMenu Left = 208 Top = 16 object mni1: TMenuItem Caption = ' Property Explorer' ShortCut = 0 end object mni2: TMenuItem Caption = ' Version 1.0' ShortCut = 0 end object mni3: TMenuItem Caption = 'Written by Keith Wood' ShortCut = 0 end end object dlgSave: TSaveDialog DefaultExt = 'txt' FileEditStyle = fsEdit FileName = 'PropExpl' Filter = 'Text files|*.txt|All files|*.*' InitialDir = 'C:\Temp' Options = [ofOverwritePrompt, ofExtensionDifferent, ofCreatePrompt] Title = 'Save Located Properties' Left = 244 Top = 16 end end